﻿''' <summary>
''' 现场气象数据数组类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class LocaleWeatherDataConcourse
    Implements ICloneable

    ''' <summary>
    ''' 现场气象数据类 的数组(LocaleWeatherData)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_ArrLocaleWeatherData(-1) As LocaleWeatherData
    ''' <summary>
    ''' 其它选项类 (LocaleWeatherDataElse)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_elseData(-1) As LocaleWeatherDataElse
    ''' <summary>
    ''' 数据总数 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_countSumTier As Integer
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_countTierData As Integer
    ''' <summary>
    ''' 现场气象数据类 的数组 (LocaleWeatherData)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrLocaleWeatherData() As LocaleWeatherData()
        Get
            Return Me.m_ArrLocaleWeatherData
        End Get
        Set(ByVal value As LocaleWeatherData())
            Me.m_ArrLocaleWeatherData = value
        End Set
    End Property
    ''' <summary>
    ''' 其它选项类 (LocaleWeatherDataElse)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ElseData() As LocaleWeatherDataElse()
        Get
            Return Me.m_elseData
        End Get
        Set(ByVal value As LocaleWeatherDataElse())
            Me.m_elseData = value
        End Set
    End Property
    ''' <summary>
    ''' 数据总数 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property CountSumTier() As Integer
        Get
            Return Me.m_countSumTier
        End Get
        Set(ByVal value As Integer)
            Me.m_countSumTier = value
        End Set
    End Property
    ''' <summary>
    ''' 层数 (Integer)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property CountTierData() As Integer
        Get
            Return Me.m_countTierData
        End Get
        Set(ByVal value As Integer)
            Me.m_countTierData = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim objCopy As New LocaleWeatherDataConcourse
        ReDim objCopy.m_ArrLocaleWeatherData(Me.m_ArrLocaleWeatherData.Length - 1)
        For i As Integer = 0 To Me.m_ArrLocaleWeatherData.Length - 1
            objCopy.m_ArrLocaleWeatherData(i) = Me.m_ArrLocaleWeatherData(i).Clone
        Next
        ReDim objCopy.m_elseData(Me.m_elseData.Length - 1)
        For i As Integer = 0 To Me.m_elseData.Length - 1
            objCopy.m_elseData(i) = Me.m_elseData(i).Clone
        Next
        objCopy.m_countSumTier = Me.m_countSumTier
        objCopy.m_countTierData = Me.m_countTierData
        Return objCopy
    End Function
End Class
